home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / C / Applications / Tcl-Tk 8.0 / Pre-installed version / tk8.0 / mac / tkMacApplication.r < prev    next >
Encoding:
Text File  |  1997-08-15  |  8.2 KB  |  267 lines  |  [TEXT/CWIE]
  1. /* 
  2.  * tkMacApplication.r --
  3.  *
  4.  *    This file creates resources for use in the Wish application.
  5.  *
  6.  * Copyright (c) 1996 Sun Microsystems, Inc.
  7.  *
  8.  * See the file "license.terms" for information on usage and redistribution
  9.  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  10.  *
  11.  * SCCS: @(#) tkMacApplication.r 1.2 96/10/03 17:53:57
  12.  */
  13.  
  14. #include <Types.r>
  15. #include <SysTypes.r>
  16.  
  17. /*
  18.  * The folowing include and defines help construct
  19.  * the version string for Tcl.
  20.  */
  21.  
  22. #define RESOURCE_INCLUDED
  23. #include "tk.h"
  24.  
  25. #if (TK_RELEASE_LEVEL == 0)
  26. #   define RELEASE_LEVEL alpha
  27. #elif (TK_RELEASE_LEVEL == 1)
  28. #   define RELEASE_LEVEL beta
  29. #elif (TK_RELEASE_LEVEL == 2)
  30. #   define RELEASE_LEVEL final
  31. #endif
  32.  
  33. #if (TK_RELEASE_LEVEL == 2)
  34. #   define MINOR_VERSION (TK_MINOR_VERSION * 16) + TK_RELEASE_SERIAL
  35. #else
  36. #   define MINOR_VERSION TK_MINOR_VERSION * 16
  37. #endif
  38.  
  39. #define RELEASE_CODE 0x00
  40.  
  41. resource 'vers' (1) {
  42.     TK_MAJOR_VERSION, MINOR_VERSION,
  43.     RELEASE_LEVEL, 0x00, verUS,
  44.     TK_PATCH_LEVEL,
  45.     TK_PATCH_LEVEL ", by Ray Johnson © 1993-1996" "\n" "Sun Microsystems Labratories"
  46. };
  47.  
  48. resource 'vers' (2) {
  49.     TK_MAJOR_VERSION, MINOR_VERSION,
  50.     RELEASE_LEVEL, 0x00, verUS,
  51.     TK_PATCH_LEVEL,
  52.     "Wish " TK_PATCH_LEVEL " © 1993-1996"
  53. };
  54.  
  55. #define TK_APP_RESOURCES 128
  56. #define TK_APP_CREATOR 'WIsH'
  57.  
  58. /*
  59.  * The 'BNDL' resource is the primary link between a file's
  60.  * creator/type and its icon.  This resource acts for all Tcl shared
  61.  * libraries; other libraries will not need one and ought to use
  62.  * custom icons rather than new file types for a different appearance.
  63.  */
  64.  
  65. resource 'BNDL' (TK_APP_RESOURCES, "Tk app bundle", purgeable) 
  66. {
  67.     TK_APP_CREATOR,
  68.     0,
  69.     {
  70.         'FREF',
  71.         {
  72.             0, TK_APP_RESOURCES,
  73.             1, TK_APP_RESOURCES+1
  74.         },
  75.         'ICN#',
  76.         {
  77.             0, TK_APP_RESOURCES,
  78.             1, TK_APP_RESOURCES+1
  79.         }
  80.     }
  81. };
  82.  
  83. resource 'FREF' (TK_APP_RESOURCES, purgeable) 
  84. {
  85.     'APPL', 0, ""
  86. };
  87. resource 'FREF' (TK_APP_RESOURCES+1, purgeable) 
  88. {
  89.     'TEXT', 1, ""
  90. };
  91.  
  92. type TK_APP_CREATOR as 'STR ';
  93. resource TK_APP_CREATOR (0, purgeable) {
  94.     "Wish " TK_PATCH_LEVEL " © 1996"
  95. };
  96.  
  97. /*
  98.  * The 'kind' resource works with a 'BNDL' in Macintosh Easy Open
  99.  * to affect the text the Finder displays in the "kind" column and
  100.  * file info dialog.  This information will be applied to all files
  101.  * with the listed creator and type.
  102.  */
  103. resource 'kind' (TK_APP_RESOURCES, "Tcl kind", purgeable) {
  104.     TK_APP_CREATOR,
  105.     0, /* region = USA */
  106.     {
  107.         'APPL', "Wish",
  108.         'TEXT', "Tcl/Tk Script"
  109.     }
  110. };
  111.  
  112. /*
  113.  * The following resource define the icon used by Tcl scripts.  Any
  114.  * TEXT file with the creator of WIsH will get this icon.
  115.  */
  116.  
  117. data 'icl4' (TK_APP_RESOURCES + 1, "Tk Doc", purgeable) {
  118.     $"000F FFFF FFFF FFFF FFFF FFF0 0000 0000"
  119.     $"000F 3333 3333 3333 3333 33FF 0000 0000"
  120.     $"000F 3333 3333 3333 3433 33F2 F000 0000"
  121.     $"000F 3333 3333 3333 7D43 33F2 2F00 0000"
  122.     $"000F 3333 3333 3335 5623 33F2 22F0 0000"
  123.     $"000F 3333 3333 3356 6343 33FF FFFF 0000"
  124.     $"000F 3333 3333 256F 5223 3333 333F 0000"
  125.     $"000F 3333 3333 D666 2433 3333 333F 0000"
  126.     $"000F 3333 3333 D5F6 6633 3333 333F 0000"
  127.     $"000F 3333 3332 5666 6733 3333 333F 0000"
  128.     $"000F 3333 3336 E56F 6633 3333 333F 0000"
  129.     $"000F 3333 3336 5656 5733 3333 333F 0000"
  130.     $"000F 3333 3336 E5B6 5233 3333 333F 0000"
  131.     $"000F 3333 3336 5ED6 3333 3333 333F 0000"
  132.     $"000F 3333 3376 6475 6233 3333 333F 0000"
  133.     $"000F 3333 333D 5D56 7333 3333 333F 0000"
  134.     $"000F 3333 3336 6C55 6333 3333 333F 0000"
  135.     $"000F 3333 3336 5C56 7333 3333 333F 0000"
  136.     $"000F 3333 3362 6CE6 D333 3333 333F 0000"
  137.     $"000F 3333 3336 5C65 6333 3333 333F 0000"
  138.     $"000F 3333 3336 EC5E 3333 3333 333F 0000"
  139.     $"000F 3333 3336 5C56 6333 3333 333F 0000"
  140.     $"000F 3333 3333 5C75 3333 3333 333F 0000"
  141.     $"000F 3333 3333 5DD6 3333 3333 333F 0000"
  142.     $"000F 3333 3333 3CDD 3333 3333 333F 0000"
  143.     $"000F 3333 3333 3303 3333 3333 333F 0000"
  144.     $"000F 3333 3333 3C33 3333 3333 333F 0000"
  145.     $"000F 3333 3333 3C33 3333 3333 333F 0000"
  146.     $"000F 3333 3333 3C33 3333 3333 333F 0000"
  147.     $"000F 3333 3333 3333 3333 3333 333F 0000"
  148.     $"000F 3333 3333 3333 3333 3333 333F 0000"
  149.     $"000F FFFF FFFF FFFF FFFF FFFF FFFF 0000"
  150. };
  151.  
  152. data 'ICN#' (TK_APP_RESOURCES + 1, "Tk Doc", purgeable) {
  153.     $"1FFF FE00 1000 0300 1000 F280 1003 F240"
  154.     $"1003 E220 1007 E3F0 100F C010 100F C010"
  155.     $"100F C010 101F F010 101F F010 101F F010"
  156.     $"101F F010 101F F010 101D E010 101D E010"
  157.     $"101D E010 101D C010 101D C010 101D C010"
  158.     $"101D C010 100D 8010 100D 8010 100D 8010"
  159.     $"1005 8010 1002 0010 1002 0010 1002 0010"
  160.     $"1002 0010 1002 0010 1000 0010 1FFF FFF0"
  161.     $"1FFF FE00 1FFF FF00 1FFF FF80 1FFF FFC0"
  162.     $"1FFF FFE0 1FFF FFF0 1FFF FFF0 1FFF FFF0"
  163.     $"1FFF FFF0 1FFF FFF0 1FFF FFF0 1FFF FFF0"
  164.     $"1FFF FFF0 1FFF FFF0 1FFF FFF0 1FFF FFF0"
  165.     $"1FFF FFF0 1FFF FFF0 1FFF FFF0 1FFF FFF0"
  166.     $"1FFF FFF0 1FFF FFF0 1FFF FFF0 1FFF FFF0"
  167.     $"1FFF FFF0 1FFF FFF0 1FFF FFF0 1FFF FFF0"
  168.     $"1FFF FFF0 1FFF FFF0 1FFF FFF0 1FFF FFF0"
  169. };
  170.  
  171. data 'ics#' (TK_APP_RESOURCES + 1, "Tk Doc", purgeable) {
  172.     $"7FF0 41D8 419C 4384 43C4 47C4 47C4 4784"
  173.     $"4684 4684 4284 4284 4104 4104 4104 7FFC"
  174.     $"7FE0 7FF0 7FF8 7FFC 7FFC 7FFC 7FFC 7FFC"
  175.     $"7FFC 7FFC 7FFC 7FFC 7FFC 7FFC 7FFC 7FFC"
  176. };
  177.  
  178. data 'ics4' (TK_APP_RESOURCES + 1, "Tk Doc", purgeable) {
  179.     $"0FFF FFFF FFFF 0000 0F33 3333 53F2 F000"
  180.     $"0F33 3335 52FF FF00 0F33 33E6 3333 3F00"
  181.     $"0F33 3256 6333 3F00 0F33 3556 6333 3F00"
  182.     $"0F33 3A5E 3333 3F00 0F33 65D6 D333 3F00"
  183.     $"0F33 3655 5333 3F00 0F33 65C6 3333 3F00"
  184.     $"0F33 3EC5 E333 3F00 0F33 36C6 3333 3F00"
  185.     $"0F33 33CD 3333 3F00 0F33 33C3 3333 3F00"
  186.     $"0F33 33C3 3333 3F00 0FFF FFFF FFFF FF00"
  187. };
  188.  
  189. /* 
  190.  * The following resources define the icons for the Wish
  191.  * application.
  192.  */
  193.  
  194. data 'icl4' (TK_APP_RESOURCES, "Tk App", purgeable) {
  195.     $"0000 0000 0000 000F 0000 0000 0000 0000"
  196.     $"0000 0000 0000 00FC F000 0000 0000 0000"
  197.     $"0000 0000 0000 0FCC CF66 0000 0000 0000"
  198.     $"0000 0000 0000 FCCC C556 0000 0000 0000"
  199.     $"0000 0000 000F CCCC 566F 0000 0000 0000"
  200.     $"0000 0000 00FC CCC5 6F5C F000 0000 0000"
  201.     $"0000 0000 0FCC CC66 66CC CF00 0000 0000"
  202.     $"0000 0000 FCCC CCD5 5666 CCF0 0000 0000"
  203.     $"0000 000F CCCC C656 5667 CCCF 0000 0000"
  204.     $"0000 00FC CCCC C6E5 5566 CCCC F000 0000"
  205.     $"0000 0FCC CCCC C656 5657 CCCC CF00 0000"
  206.     $"0000 FCCC CCCC C6E5 565C CCCC CCF0 0000"
  207.     $"000F CCCC CCCC C655 565C CCCC CCCF 0000"
  208.     $"00FC CCCC CCCC 7660 556C CCCC CCCC F000"
  209.     $"0FCC CCCC CCCC CD5D 567C CCCC CCCC CF00"
  210.     $"FCCC CCCC CCCC 6660 556C CCCC CCCC CCF0"
  211.     $"0FCC CCCC CCCC 665C 565C CCCC CCCC C0CF"
  212.     $"00FC CCCC CCCC 6660 E6DC CCCC CCCC CCF0"
  213.     $"000F CCCC CCCC C650 656C CCCC CCCC CF00"
  214.     $"0000 FCCC CCCC C6EC 5ECC CCCC CCCC F000"
  215.     $"0000 0FCC CCCC C650 566C CCCC CCCF 0000"
  216.     $"0000 00FC CCCC CC50 75CC CCCC CCF0 0000"
  217.     $"0000 000F CCCC CC50 56CC CCCC CF00 0000"
  218.     $"0000 0000 FCCC CCC0 5CCC CCCC F000 0000"
  219.     $"0000 0000 0FCC CCC0 CCCC CCCF 0000 0000"
  220.     $"0000 0000 00FC CCC0 CCCC CCF0 0000 0000"
  221.     $"0000 0000 000F CCC0 CCCC CF00 0000 0000"
  222.     $"0000 0000 0000 FCCC CCCC F000 0000 0000"
  223.     $"0000 0000 0000 0FCC CCCF 0000 0000 0000"
  224.     $"0000 0000 0000 00FC CCF0 0000 0000 0000"
  225.     $"0000 0000 0000 000F CF00 0000 0000 0000"
  226.     $"0000 0000 0000 0000 F000 0000 0000 0000"
  227. };
  228.  
  229. data 'ICN#' (TK_APP_RESOURCES, "Tk App", purgeable) {
  230.     $"0001 0000 0002 8000 0004 7000 0008 7000"
  231.     $"0010 F000 0021 E800 0043 C400 0081 F200"
  232.     $"0107 F100 0207 F080 0407 F040 0807 E020"
  233.     $"1007 E010 200E E008 4002 E004 800E E002"
  234.     $"400E E001 200E C002 1006 E004 0806 C008"
  235.     $"0406 E010 0202 C020 0102 C040 0080 8080"
  236.     $"0041 0100 0021 0200 0011 0400 0009 0800"
  237.     $"0004 1000 0002 2000 0001 4000 0000 8000"
  238.     $"0001 0000 0003 8000 0007 F000 000F F000"
  239.     $"001F F000 003F F800 007F FC00 00FF FE00"
  240.     $"01FF FF00 03FF FF80 07FF FFC0 0FFF FFE0"
  241.     $"1FFF FFF0 3FFF FFF8 7FFF FFFC FFFF FFFE"
  242.     $"7FFF FFFF 3FFF FFFE 1FFF FFFC 0FFF FFF8"
  243.     $"07FF FFF0 03FF FFE0 01FF FFC0 00FF FF80"
  244.     $"007F FF00 003F FE00 001F FC00 000F F800"
  245.     $"0007 F000 0003 E000 0001 C000 0000 8000"
  246. };
  247.  
  248. data 'ics#' (TK_APP_RESOURCES, "Tk App", purgeable) {
  249.     $"01C0 0260 04E0 09D0 1388 23C4 43C2 8281"
  250.     $"8282 4284 2188 1190 0920 0540 0280 0100"
  251.     $"01C0 03E0 07E0 0FF0 1FF8 3FFC 7FFE FFFF"
  252.     $"FFFE 7FFC 3FF8 1FF0 0FE0 07C0 0380 0100"
  253. };
  254.  
  255. data 'ics4' (TK_APP_RESOURCES, "Tk App", purgeable) {
  256.     $"0000 000F C000 0000 0000 00FC 6600 0000"
  257.     $"0000 0FCC 6600 0000 0000 FCC6 66F0 0000"
  258.     $"000F CCD5 56CF 0000 00FC CC66 57CC F000"
  259.     $"0FCC CC65 56CC CF00 FCCC CC56 57CC CCF0"
  260.     $"0FCC CCC6 6CCC CCCF 00FC CCC6 5CCC CCF0"
  261.     $"000F CCC6 6CCC CF00 0000 FCCC 5CCC F000"
  262.     $"0000 0FCC CCCF 0000 0000 00FC CCF0 0000"
  263.     $"0000 000F CF00 0000 0000 0000 F000 0000"
  264. };
  265.  
  266.  
  267.